home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 59 / 059.d81 / tan boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  34 lines
  1. 10 poke53280,0:poke53281,0:printchr$(147)chr$(14)chr$(8)
  2. 20 gosub61000
  3. 22 poke214,5:print:printtab(14)"[159][212] [193] [206] [199] [210] [193] [205]"
  4. 24 printtab(9)"[154][193]ncient [195]hinese [208]uzzles"
  5. 26 printtab(14)"[154][211]zechwan [211]tyle"
  6. 27 poke147,0:sys57812"tan.font",8,1:sys62631
  7. 30 sys57812"tangram.ml",8,0
  8. 40 poke780,0
  9. 50 poke781,0
  10. 60 poke782,64
  11. 70 sys65493
  12. 80 sys16384
  13. 1000 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  14. 1010 ifer<>63thenend
  15. 1015 poke53281,peek(646)
  16. 1020 print"[147]load"chr$(34)"hello connect"chr$(34)",8"
  17. 1030 print"run"
  18. 1040 poke631,13:poke632,13:poke633,13:poke198,3
  19. 1050 end
  20. 61000 poke214,15:print
  21. 61110 print"  [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  22. 61120 print"  [152]                                    "
  23. 61130 print"                                      "
  24. 61140 print"                                      "
  25. 61150 print"        [208]ublished on [204][207][193][196][211][212][193][210] #59     "
  26. 61160 print"      [211]ubscriptions 1-800-831-2694    "
  27. 61170 print"     [195][200][193][206][199][201][206][199][160][212][200][201][211][160][206][207][212][201][195][197][160][201][211][160][201][204][204][197][199][193][204]  "
  28. 61180 print"                                      "
  29. 61190 print"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  30. 61200 au$="[212][193][206][199][210][193][205]":poke214,17:print:printspc(20-len(au$)/2)"[152]"au$
  31. 61210 au$="by [194]arbara [211]chulak (c) 1989":poke214,18:print
  32. 61220 printspc(20-len(au$)/2)"[152]"au$""
  33. 61230 return
  34.